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Foreword 

There is much more to computer graphics than you may 
think. Instead of just playing or illustrating games, you can 
write a story, and make your own colorful cartoon film 
program using both static and animated graphics. The 
program is given for the Apple lie and Commodore 64 
computers, and tells the story of the Haunted House. 

The program has been broken down into logical stages and 
a running text explains how each section works. Writing a 
program in logical stages not only makes it easier for you 
and other people to understand, it also reduces the 
possibility of errors. At various stages you can test the 
sections of the program you've keyed-m - even the smallest 
error can mean that the program doesn't work. If something 
does go wrong, check back through the listings very 
carefully. Make sure your program is exactly the same as is 
printed in the book. 

The sinister gomgs-on around the haunted house use many 
useful computer graphics techniques. For example, by 
carefully designing some user-defined characters it is easy 
to get the smoothest animation from a BASIC program. 
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APPLE Graphics 


The Apple stores the details of the shapes that it is going to 
draw on the screen in special shape tables. That way a 
shape can be put into memory and called when it is needed. 
The shapes are numbered and at the beginning of the shape 
table there is an index so that the computer can find the 
particular shape you want drawn. The index contains the 
number of memory locations the beginning of the shape is 
away from the start of the table. Memory locations 232 and 
233 tell the computer where the table is. 


3000 
30 1 0 
3020 
3030 
3040 
3050 
3060 
3070 


READ SN: REM SHAPE TABLE SET 

1 ,0:ST = 


POKE P , SN : POKE P + 
POKE 232, FIM MOD(P): 
LET P = ST + 2 * SN 
FOR SS = 0 TO SN - 1 
LET A = ST + 2 * SS: 
POKE A + 1, INT (T / 
POKE P , 25 : P = P + Is 


POKE 


INT (P / 256) 


:T = P - ST + 2 
POKE A, FN MOD (T) 
256 ) : D* = " " : R = 0 
GOSUB 3150: NEXT : 


RETURN 


To fully understand how Apple shape tables work you have 
to understand machine codes. But to make it easier a special 
BASIC routine has been written which translates simple 
direction commands into the right form. That routine is 
called by the GOSUB line 3070, after the overall format of the 
table has been set. 


the APPLES' shape ta&les ^I^^^^ans^o upanp** MEANS go 
P^W £ aTa & P L lllo%"lH£SE PIP£CT,0NS POINTS on the screen, an m 

MOVES WITHOUT PRINTING, e MEANS ENP. 

100 


'inxA/ki A P BEFORE 7HwP ^ 

Move's without printing, e means enp. 

OPPATA PRUURD06RSURSO^P3LS DLS06L^OL^ 

i i i m i i m ittii 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




St 
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r-' 3100 

^ 3110 

© 3120 
3130 


LET X = X + B: FOR I = 1 TO R 
IF PEEK (P - 1) > 8 OR X > 8 THEN 3130 
POKE F 1 - 1,8 * X + PEEK (P - 1>: GOTO 3140 
POKE P,X:F' « P + 1 



O 

0 

O 

O 

o 

o 

u 


3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 


NEXT : R 
IF DT = 
LET A* = 
LET DT = 
IF AT = 
AT = 
AT * 
AT = 
AT « 
AT = 
AT = 
AT < 
R * 


0 

• THEN READ DT: PRINT 
LEFT T ( DT , 1 ) 

MIDT (DT , 2 , LEN (DT) - 


1 ) 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

LET 


"R" 

"D" 

"L" 

"U" 

"M" 

II p. M 


"O' 

10 


THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

OR AT 

■ R + 


= 1: GOTO 3100 
* 2: GOTO 3100 
= 3: GOTO 3100 
= 128: GOTO 3100 
= 0: GOTO 3150 
= 4: GOTO 3150 
150 

> "9" THEN 3270 
VAL (AT): GOTO 3150 


POKE 

mmw®m 


F',X: 




POKE P 


1 , 0 : P 




= p + 


RETURN 


This is the routine that translates the simple direction 
instructions that are going to be given in the drawing data 
3 the complicated numbers that the shape table requires. 
In line 3150, the DATA is READ in as string and PRINTs a dot 
on the screen to show that the computer is working during 
this long procedure. Lines 3 160 and 3170 pick off the first 
number or letter off the string. Lines 3180 through 3250 look 
for the direction letters we're using or numbers. Lines 3100 
through 3 140 do the complicated sums that work out the 
shape table numbers and POKE them into the nght place in 
the shape table. 



YOU CAN ZAAKE AN AIRPLANE FLY 

A CROSS YOUR SCREEN BY ru 0 rT 
LINES 3<t>6<t> TO 32.7(j WITH TH/S SHORT 
PROGRAM ANO LINE 100 OPPOSITE. 

IO HGR • HCOLOR - 3 

IS p- 24576 : ROT- 0 • SCALE- 7 

20 GoSuB 3000 

25 X DRAW 1 AT 10,20 

30 FOR X = 77 TO 270 

35 X DRAW 1 AT X-l. 20 

40 X DRAW 1 AT X,2.9 

45 NEXT , , 

50 X DRAW 1 AT 27<p, 20 
55 TEXT .* END 
60 DATA 1 


COMMODORE Graphics 


To draw the haunted house, you have to use what is called 
“high resolution graphics" where each little dot on the TV 
screen is controlled individually. But Commodore BASIC has 
no simple command for drawing a line in high resolution 
graphics. So the program below loads a machine code 
routine which will do the job. You have to type this program 
in and RUN it before the mam program will work. 



The numbers in the DATA lines are the machine code and 
the loop between lines 10 and 20 READs these numbers and 
POKEs them into the computer’s memory. But to check that 
you do not make a mistake when you are keying them in, line 
10 also adds the numbers up. The total is checked in line 30 
which then tells you if you have made a mistake. Line 40 
makes sure that when the main program is loaded it goes 
into an area of memory where it won't interfere with the 
machine code. The machine code is called by the command 
SYS MC. This command is followed by four numbers which 
tell the machine code where the ends of the line are, how far 
down the screen and what color it is. 



1 3000 REM *** 


DRAW BOX 


~~l 



13010 FOR I=Y 1 TO Y2: FOR J=X1 TO X2 
w 13020 POKE SC+I*40+J, 134: POKE C0+I*4C>+J,C 
^ 13030 NEXT J,I 
v- 13040 FOR Y=Y1*8 TO Y2*8+7 
13050 SYS MC,X1.*4,X2*4+3,Y,3 
O 13060 NEXT Y 

13070 IF NS= 1 THEN RETURN 
r\ 13080 FOR Y=Y2*8+7 TO Yl*8 STEP-2 
^ 13090 SYS MC , X 1*4 , X2*4+3 , Y , 1 
^ 13100 NEXT Y 
U 13110 RETURN 


This subroutine uses the machine code put into memory by 
d - -tarter program to draw a box. So RUN the starter 
program, type in this routine, then test it using the test 
p: : jram below. When it is working, delete the test lines. Yl, 
Y2 XI and X2 are the row and column numbers that form the 
sides of the box. The loop between lines 13010 and 13030 
POKEs the color memory of each character square in the 
b x And the loop between 13080 and 13100 uses SYS MC to 
rail the machine code routine which fills in the box a line at a 
tune with that color. The loop between 13080 and 13100 
works back up the box, using SYS MC to change the color of 
every other line to orange to give stripes. If NS is fixed at 1 
outside the program the machine code routine does not 
draw in the stnpes. 





BEFORE "YOU GO ANY FARTHER 
IT IS BEST TO TEST THAT YOUR 
MACHINE COPE ROUTINE AND 
BLOCK' DRAWING ROUTINE >S 
WORKING. THIS LITTLE TEST 
PROGRAM WILL DO JUST THAT. 



J 






The storyboard 


The storyline of the cartoon must be worked out in detail 
before the main program is written. First the scene is set, 
then the mysterious castle appears in the middle of nowhere, 
surrounded by a spooky forest. Night falls. A thunderous 
lightning flash wakes the bats in the belfry and an evil old 
witch takes to the air on her broomstick. As she flies off into 
the night accompanied by more lightning flashes. Then 
suddenly the old house catches fire. The flames leap higher 
and higher. The house is burnt to the ground. And, as an 
eene conclusion to this macabre tale, a huge ghostly skull 
appears in the sky, hovering over the ashes of the house. 
When working on a cartoon tale like this one, it is a good 
idea to tackle the task like a professional movie maker. Work 
out a detailed storyboard, like the one below, that breaks the 
plot down into a series of separate events. 


background 


haunted house 


HAUNTED FOREST 


NIGHT FALLS 


BAT AND WITCH 


LIGHTNING STRIKE 


THE Blazing house 


THE HOUSE COLLAPSES 


A SKULL APPEARS 


ML 






THE CONTROL PROGRAM 
AND INITIALIZATION 


A control program is one that calls a series of subroutines in 
the right order. Here the control program corresponds to the 
storyboard and the subroutines correspond to each of the 
separate scenes. 
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The control program follows the storyboard, with each 
subroutine being called m turn. At first they simply set up the 
machine and draw up each element of the scenery. But 
when the action starts things get a bit more complicated. 


-Vvix^V*7 


1 REM HAUNTED HOUSE 

5 DEF FN MOD ( X ) = 256 * (X / 256 - INT (X / 256)) 

100 GO SUB 1000: REM INITIALIZATIONS 

110 GOSIJB 6000: REM BACKGROUND CASTLE 

120 GOSUB 6500: REM TREES 

130 GOSUB 5000: REM NIGHTFALL 

140 GOSUB 2400: REM LIGHTNING 

150 FOR TI = 1 TO 250 

160 IF TI = 10 THEN GOSUB 2100: REM START WITCH 

170 IF TI > 10 THEN GOSUB 2150: REM MOVE WITCH 

ISO IF TI = 30 THEN GOSUB 2200: REM START BAT 

190 IF TI > 30 THEN GOSUB 2230: REM MOVE BAT 

200 IF RND (1) < .07 THEN GOSUB 2400: REM LIGHTNING 

210 NEXT TI: GOSUB 2300: REM REMOVE BAT 

220 GOSUB 2400: GOSUB 2400: REM STORM 

230 GOSUB 2500: REM FIRE 

240 FOR X = 1 TO 1000: NEXT : GOSUB 2700: REM SKULL 
250 TEXT : END 


© 

© 

© 

© 

© 

© 

© 


Because of the special way machine code numbers have to 
be handled, line 5 starts off by defining the function FN MOD 
(X) which will help simplify the math. Next the initialization 
subroutine is called, which tells the computer all the things 
that it will need to know to run the program. Then the 
routmes that draw up the background and castle, the trees, 
make night fall and make the lightning flash are all called. TI 
is going to be used as a clock to control the animation. The 
routmes that draw up the witch, make her move and draw up 
the bat and make it move take their cue from TI. In line 200 
the Apple’s dice-rolling function RND is used to call the 
lightning program and give lightning flashes at random 
times. 

Once the animation loop has ended, the computer goes on 
with the rest of line 210 and removes the bat. Line 220 calls 
the lightning routine twice in quick succession to simulate a 
storm. In line 230 fire breaks out - or, at least, it's set by 
calling the routine at line 2500. 


l&M&znr 

: /\ PROGRAM 1 

ei 

MpereNpeul 

TS3&S\ 

WfTH A G0SU8- 


Once the castle has burned down to the ground, there is a 
thousand time period pause to build up dramatic tension 
before the routine that puts up the eerie skull is called. Line 
250 sets the Apple back to normal TEXT mode before 
ENDing the program. 




rw 

1000 REM INITIALIZE PEEK AND POKE ADDRESSES 

O 1010 LET P 1 BE = 49236: P2GE = 49237 

1020 LET FULLSCREEN = 49234 : GPAGE = 230 
j 1030 LET CLICK = 49200: P = 24576 
0 1040 GOSUB 3000: REM SET UP SHAPE TABLE 
1050 GOSUB 5200: REM PUT MACHINE CODE IN 
1060 HGR : X = PEEK (FULLSCREEN) 

1 ^ 107C | SCALE= 1: RQT= 0: RETURN 


\J1 



When initializing any program it is best to give it all the 
important memory addresses names that will be easy to 
ie member, P1GE and P2GE are the addresses that switch on 
:: iphics screens 1 and 2. FULLSCREEN is the address 
which switches the Apple to full graphics screen, rather than 
the one that mixes graphics with text. CLICK is the address 
lat switches on the speaker. P is the pointer to the shape 
table. The address given here is the starting address of the 
shape table, but P will be updated as the shapes are loaded 
m Line 1040 calls the subroutine that sets up the shape table, 
so now the computer has all the shapes at its fingertips. Next 
a subroutine is called that loads in a machine code routine. 
This routme copies graphics screen one onto the graphics 
s oreen two, changing all the colors at the same time. HGR 
puts the Apple into high-resolution graphics mode and 
PEEKing FULLSCREEN selects the full graphics screen. 
SCALE and ROT say that the shapes should be drawn at the 
same size and at the same angle as they were given. 


SHAPE TABLE 

THE STARTING ADD RESS 
OF TUB SHAPE TABLE 
( BYTE T <t) IS STORED 
AT ADDRESSES 232 
AND 233. 

BYTE T o contains 
THE NUMBER OF SHAPES. 

IN THIS EXAMPLE THERE 
ARE 2- 

STARTING AT BYTE •+ 2 
THERE IS A LOW BYTE/ 
HIGH BYTE index TO THE 
SHAPE DEFINITIONS RELATIVE 
TO BYTE tO. 

AFTER THE INDEX ARE 
THE SHAPE DEFINITIONS 
THEMSELVES. 

( ALL SHAPE DEFINITIONS 
END WITH A ZERO-) 


BYTE t O 

NUMBER OF SHAPES 

2 

BYTE t 1 

UNUSED 

(0) 

BYTE T 2 

ADDRESS SHAPE DBF. 1 ( LOW) 

6 

-j- * 

byte t 3 

ADDRESS SHAPE DEF.l (HIGH) 


BYTE + 4- ' 

address Shape def. 2 . (low) 

38 

BYTE t 5 

ADDRESS SHAPE DEF 2 (HIGH) 


BYTE 1 6 

SHAPE DEF- 1 START 

4 - 



BYTE t 37 

SHAPE DEF. 1 END 

<t> 

BYTE T 38 

SHAPE DEF. 2 START 

4 



BYTE + 69 

| SHAPE DEF. 2 END 

0 




The structure of this control program follows the storyboard 
exactly. It calls the routines one after another. The only 
routmes that are called more than once are those that move 
the witch and the bat and make the lightning. This is to make 
the witch and bat move continuously and the lightning flash 
repeatedly. 


^ 5 REM *** ===HAUNTED HQUSE=== *** 

10 GOSUB 14000: REM INITIALIZE 

0 20 GOSUB 1000 : REM BACKGROUND 

30 GOSUB 2000 : REM CASTLE 

0 40 GOSUB SO 00 : REM TREES 

50 GOSUB 9000 : REM NIGHT 

$!) 60 POKE V+21,243:DX=~1:DY=-1 
^ 70 FOR WX = 10 TO 346 STEP 2: LI=RND (0) *20 
^80 IF LI >19 THEN GOSUB 10000: REM LIGHTNING 
© 90 IF WX >255 THEN RS=255:P0KE V+16,3 
100 POKE V+0 , WX-RS: REM WITCH 
0 110 GOSUB 10040: REM BAT 

120 NEXT WX: POKE V+2 1,240 

© 130 GOSUB 11000: REM BURN 
140 GOSUB 12000: REM SKULL 


150 END 








This program calls a number of subroutines - the name of 
each subroutine is given in the REM line following the 
GOSUB call. The Commodore has a special graphics facility 
called sprites. These allow you to move areas of animation 
across the screen easily. But they are controlled by POKEing 
a special area of memory. The POKE in line 60 switches on 
the sprites which contam the bat and the witch. DX and DY 
fix the direction in which the bat starts moving. Setting them 
both to - 1 means that the bat starts out moving from right to 
left and up the screen. WX controls the movement of the 
witch. She starts off in column 10 and moves across the 
screen two steps at a time until she disappears off the right- 
hand side. The lightning is made to flash randomly by using 
the dice-throwing instruction RND. Roughly once in every 20 
throws RND (0)*20 will come up with a number bigger than 
19 and the lightning subroutine at 1000 will be called. 



One of the problems with using sprites is that you have to 
deal directly with the Commodore's memory locations. But 
each memory location can only store a number between 0 
and 255. But there are more than 255 columns across the 
screen. So when the witch reaches column 255, adjustments 
have to be made. These are done by lines 90 and 100. Line 
120 switches the bat and the witch sprites off again when 
you've finished with them. 




14000 REM *** INITIALIZE *** 

1 40 10 PR I NT "U " : P0KE53280 ,11: P0KE5328 1,14 
14020 P0KE53270 , PEEK ( 53270 ) OR 1 6 : REM MULTICOLOUR MODE 
14030 P0KE53272 , PEEK ( 53272 )0R8: REM PUT SCREEN AT 8192 
14040 P0KE53265 , PEEK ( 53265 ) 0R32 : REM SWITCH TO BITMAP 
14050 DIM TR (33, 15) , DO (16,8) , MO (37, 10) , SK (28, 14) 

14060 FOR I=0TQ20: F0RJ=0T015: READTR ( I , J ) : NEXTJ , I 
14070 F0RI=0TQ16: FQRJ=0T07 : READMO ( I , j ) : NEXTJ, I 
14080 F0RI=0TQ14: F0RJ=0T09: READSK ( I , J ) : NEXTJ, I 
1 4090 0=53248 : SC= 1 024 : CQ=55296 : MC=49 1 53 : L„ I =0 


To initialize this program we have to put the computer into 
• - e right mode to give high resolution graphics, READ in the 
DATA for all the things that have to been drawn on the 
screen, and give easy-to-remember names to important 
memory locations. Line 14010 clears the screen, sets the 
background color to light blue and sets the border color to 
may Lines 14020 through 14040 put the computer into high 
resolution graphics mode. And lmes 14060 through 14080 
READ the DATA for the trees, the moon and the skull mto the 
arrays TR. MO and SK. Line 14090 gives names to the 
important memory locations. V is the start address of the 
sc nte memory. SC and CO are start addresses of the screen 
±nd color memories. And MC is the address of the special 
machine code high-resolution line-drawing program. Sprites 
are easy to use, so the windows of the castle will also be 
made from sprites. Lmes 14100 through 14130 set their X and 
Y positions. Lines 14140 and 14150 set the starting positions 
of the witch and the bat. Lines 14160 through to 14190 set the 
. : iors and tells each sprite where to find its DATA. That 
DATA is then READ and POKEd mto memory by line 14200. 
Line 14210 fills the screen with the sky color by using the 
machine code program. 


14100 
14110 
14120 
14130 
14140 
14150 
14160 
1 4 1 70 
14180 
14190 
14200 
14210 


POKEV+8 , 1 20 : POKE V+ 9 , 1 07 : REM 
POKEV+ 1 0 , 232 : POKE V+ 11,107 f? 

POKE 0+ 12,142: POKE V+ 13,147 

POKE V+ 14,210s POKE V+ 15,147 # 

POKEV+OO, 10 : POKEO+Ol , 60 : REM WITCH ^ 

P0KEV+02 , 50 : P0KEV+03 , 80 : REM BAT ~ 

F0RI=0T07 : P0KEV+39+I , 1 : NEXT: REM COLOURS C 

F0RI=4T07 : P0KE2040+I , 32: NEXT : REM POINTERS 
P0KE2040 , 34 : P0KE204 1,35: POKEV+ 16,2 f; 

POKE V+37 ,10: F'OKEV+38 , 8 : POKE V+28 , 240 : REM MC MODE 
FQRI=0T0319: READ D: P0KE2048+I , D: NEXT m 

FOR Y=OT0199: SYS MC , 0 , 159 , Y , 0: NEXT 

RETURN m 





Although there are 10 trees on the screen, only one lot of 
DATA is needed. All the trees look the same so the same 
DATA can be used each time a tree is drawn. The numbers 
in the DATA here tell our machine code program which 
color to use. A 4, though, is not a color recognized by that 
routine. So if a 4 is found no action is taken. In the tree DATA, 
you'll see that there are only 4s and 2s. The 4s do nothing and 
the 2s draw a point on the screen. If you look at the pattern of 
the 2s, you'll see that they draw out the shape of a weird, 
gnarled tree. 


20000 REM DATA FOR TREE 

200 1 0 DAT A4 ,2, 4, 4, 4, 4, 4, 2, 4, 4, 2, 4, 2, 4, 4, 4 
20020 DATA2 , 2 , 4, 4, 2, 2, 4, 4, 2, 4, 4, 2, 4, 4, 4, 4 
20030 DATA4 ,4, 2, 4, 4, 2, 4, 4, 2, 4, 4, 2, 4, 4, 4, 4 
20040 DATA4 ,4, 2, 4, 4, 4, 2, 4, 2, 4, 4, 2, 4, 2, 4, 4 
20050 DATA4 ,4, 4, 2, 4, 2, 4, 2, 2, 2, 4,4, 2, 4, 2, 4 
20060 DAT A4 ,4, 4, 4, 2, 4, 4, 4, 2, 4, 4, 2, 2, 4, 4, 4 
20070 DATA4 ,4, 4, 4, 2, 4, 4, 4, 2, 4, 4, 2, 2, 4, 4, 4 
20080 DATA4 ,4, 4, 2, 2, 4, 4, 4, 2, 4, 2, 2, 4, 4, 4, 4 
20090 DAT A4 ,4, 2, 4, 2, 2, 2, 2, 2, 4, 2, 4, 4, 4, 2, 4 
20 1 00 DATA4 ,4, 4, 2, 4, 4, 2, 2, 2, 2, 4, 2, 4, 4, 4, 4 

20110 DATA4, 4, 4, 2, 4, 4, 2, 2, 2, 2, 4, 2, 4, 4, 4, 4 

20 1 20 DAT A4 ,4, 4, 4, 4, 4, 2, 2, 2, 2, 4, 4, 4, 4, 4, 4 
20 1 30 DATA4 ,4, 4, 4, 4, 2, 2, 2, 2, 4, 4, 4, 4, 4, 4, 4 
20 1 40 DATA4 ,4, 4, 4, 4, 2, 2, 2, 2, 4, 4, 4, 4, 4, 4, 4 
20 1 50 DATA4 ,4, 4, 4, 4, 2, 2, 2, 2, 4, 4, 4, 4, 4, 4, 4 
20 1 60 D.ATA4 ,4, 4, 4, 4, 2, 2, 2, 2, 4, 4, 4, 4, 4, 4, 4 
20170 DATA4 ,4, 4, 4, 4, 4, 2, 2, 2, 2, 4, 4, 4, 4, 4, 4 
20180 DATA4 ,4, 4, 4, 4, 4, 2, 2, 2, 2, 4, 4, 4, 4, 4, 4 
20 1 90 DAT A4 ,4, 4, 4, 4, 2, 2, 2, 2, 2, 4, 4, 4, 4, 4, 4 
20200 DAT A4 ,4, 4, 4, 2, 2, 2, 2, 2, 2, 2, 4, 4, 4, 4, 4 
!02 1 0 DATA4 ,2, 2, 2, 4, 2, 2, 2, 2, 2, 2, 2, 2, 2, 4, 4 


VI 


:::• 

n 

: 

: : : : : : 
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DAYTIME 


The background scenery, the haunted castle and the spooky 
forest are drawn up on the screen during the daytime. 
Everything is now ready for the action, which only begins 
once the sun has gone down. 
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Not only does this program give you a BASIC routine to 
simplify the shape data, it also gives you one that simplifies 
the input of graphics data. You can use these routmes - or 

! routines like them - to simplify drawing on the screen in your 
own programs. This routine gives you new instructions that 
are not normally available in BASIC. Two main instructions 
are given here BLOCK and TRIANGLE. All the instructions 
are followed by eight numbers. The first four specify the 
sides of a block or two comers of a triangle. The next two fix 
the third corner of the triangle and are zero with the BLOCK 
instruction. 

I The last two are the colors that the block or triangle is to be 
drawn in. There are two colors because the block and 
triangles are going to be striped. Added to that, there are 
two other new instructions which work with these two. 
ORIGIN fixes the point the sides of the block or the points of 
the triangle are measured from. This point is specified by the 
first two numbers, the rest are zero. And STOP switches off 
the special graphics routine. The sky and the grass are 
drawn as two blocks, the castle as three, one for the mam 
body, and two turrets. The path is a long, thin triangle. 


* 

> 



7050 

REM i 

CASTLE DATA 




7060 

DATA 

ORIGIN, 63, 

30 ,0,0,0, 0 

, 0 , 0 


7070 

DATA 

BLOCK, 28, 

60, 1 18,120, 

0, 

0,1,2 

7080 

DATA 

BLOCK , 14, 

40 , 41, 80 , 

0 , 

0,1,2 

7090 

DATA 

BLOCK, 105, 

40 ,132, 80 , 

0, 

0,1,2 






wi 


w 6000 

0 6010 
6020 
6030 
C 6040 
6050 
6060 
6070 




6080 


REM GRAPHIC DATA INTERPRETER- 

READ R$,Xd) ,Yd) ,X(2) ,Y<2) ,X(3) ,Y(3) ,C(0) ,C(1> 
IF r$ a "ORIGIN" THEN OX = X ( 1 ) : OY = Y(l) 

FOR I = 1 TO 3:X(I> = X ( I ) + OX 
LET Y(I) = Y < I ) + OY: NEXT I 
IF R* = "BLOCK" THEN GOSUB 6100 
IF Rl = "TRIANGLE" THEN GOSUB 6200 
IF Rl = "STOP" THEN RETURN 
GOTO 6010 




I 

i 



_r.e 6010 READs in a string, R$, then the numbers that follow 
Line 6020 looks for the word "ORIGIN" and sets the 
: ; rdinates of the origin as OX and OY. Line 6030 through 
<£•40 add the coordinates of the origin into any coordinates 
given after the other new instructions. Line 6050 looks for the 
word "BLOCK" and goes to the block-drawing subroutine if it 
finds it. And line 6060 looks for "TRIANGLE". If line 6070 finds 
•STOP” the computer returns to the control routine. 

In the block routine, the sum T = 1 - T is used to change the 
color each time the computer goes round a loop, so each line 
is drawn in a different color HCOLOR - the high-resolution 
lor - is set to C(T) And HPLOT draws a line across the 
screen at the height given by Y. So the block routme draws 
m a block a line at a time, alternating the color of the lines to 
give stripes. 

The triangle routine works in much the same way, but each 
hne is a different length. This length is worked out by lmes 
6210 and 6220. Each line across the triangle gets bigger as 
you go down it. How much bigger each line is, is worked out 
by dividing the distance between the points of the triangle 
by the height. This length is then multiplied up as the lines 
are drawn down the triangle. The color of the lines is 
alternated using the sum T = 1-T again. 



o 


Hps 


6100 

LET T 

= 1: REM FILL 

BLOCK IN 2 COLOURS 

6120 

FOR I 

= Y(l) TO Y (2) 

: T 

= 1 - T 

6130 

HCOLOR 

= C (T) : HPLOT 

X ( 1 ) , I TO 

X (2) , I 

6 1 40 

NEXT : 

RETURN 




6200 

REM FILL TRIANGLE APEX 

<X2,Y2) 

6210 

LET H 

= Y(l) - Y (2) : 

K1 

= ( X (2) 

- X (1) ) 

6220 

LET K2 

= ( X < 3) - X (2) ) 

/ H: T = 

- 1 

6230 

FOR I 

■ 0 TO H:T = 1 

- 

T: HCOLOR= C(T) 

6240 

HPLOT 

X < 1 > + K1 * I , 

Yd) - I 


6245 

HPLOT 

TO X (3) - K2 

* I 

, Y (3) - 

• I 

6250 

NEXT : 

RETURN 





1 


/ H 


VI 
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7100 

REM ROOFS ON TURRETS 



71 10 

DATA 

TRIANGLE, 

10, 

39, 

28, 0, 

44, 39,! 

7 1 20 

DATA 

TRIANGLE, 1 ' 

03, 

39,118, 0,1 

36, 39,1 

7130 

REM BATTLEMENTS 





7140 

DATA 

BLOCK, 42, 

45, 

1 03 , 

59, 0, 

0,5,5 

7150 

DA TA 

BLOCK, 49, 

60 , 

55, 

65 , 0 , 

0 ,5,5 

7 1 60 

DATA 

BLOCK, 63, 

60, 

69, 

65, 0, 

O , tj , \-J 

7170 

DATA 

BLOCK, 77 

, 60 

, 83 

, 65 , 0 

, 0,5, 

7180 

DATA 

BLOCK, 91, 

60, 

97, 

65 , 0 , 

0,5,5 


<| 1 11 Jll ‘ • 
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The roofs are put on the turrets by drawing two large 
triangles. These are not striped though. But the triangle 
routine draws lines alternately in the two colors specified. So 
the two colors are simply set to the same value. Both are 
color 5. The origin for this section was fixed in the last bunch 
of DATA, the DATA for the castle. 

The battlements of the castle are drawn m by extending the 
roof color into the body of the castle. This is done by using 
the BLOCK command to draw five small squares in the roof 
color over the edge of the block that has already been 
drawn to make the castle's walls. The block is not stnped so 
the both colors are the same again - both color 5, the same 
as the roof. You will notice again that the fifth and sixth 
numbers that follow the BLOCK command are zero. 

The castle’s windows and doors are drawn in using the 
BLOCK command too. This DATA is still working from the 
origin given in the castle DATA The roofs on the turrets, the 
battlements and the windows and doors are all drawn over 
the original castle, so it makes sense to use the same origin. 
This time the blocks are striped. The windows and doors are 
drawn in alternate lines of color 0, black, and color 3, white. 
The STOP command that switches off the graphics routine 
has only zeros following it. It may seem unnecessary to have 
all these zeros, but the routme that READs the DATA is 
expecting eight numbers. 




6500 HC0L0R- 3: REM TREES 
6510 FOR T = 1 TO 20 

6520 LET X = RND (1) * 250: Y = RND 


6530 DRAW 1 AT X + 25,191 


NEXT 


(1) * 26 
RETURN 


Tins routine draws twenty trees - one in each pass of the 
*X)R . . . NEXT loop between lines 6510 and 6530. Line 6520 
• .Is the computer’s dice function, RND. to position the trees 
-. random places. The DRAW 1 in line 6530 draws the first 
shape from the shape table on the screen. The first shape is, 
of course, the tree. The position is given by the expressions 
th it follow AT in line 6530. 
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4000 
40 1 0 
4 1 00 
4110 
4 1 20 
4130 
4 1 40 
4150 
4160 
4 1 70 
4 1 80 


REM 9 GRAPHIC ELEMENTS 
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DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


9 

TREE 

P2LUD 

L.U4RM 

4LU4R 

MR8UP 

RPRU3 

RLDRD 

RP3RU 

M7LPL 


mmmmm 


9LM3L 

UL.P3L 

U4LML 

DR2D6 

LULM3 

RLDRD 

L3RUR 

3D2R2 


P2LMU 

MURP3 

UP7RM 

RM3RP 

RP3RU 

RLDRD 

URDDM 

D2RU2 


2RP7R 

RMRUP 

5RUP2 

9RMRU 

2LU2L 

RLDRD 

M10U3 

DLDRD 


MRUP7 

4L.U4R 

LM2LP 

P11LU 

LJ2LUM 

RDLDR 

LPL.DL 

2LDRD 


There are nine shapes in the shape table. This is set by the 9 
:n the DATA in line 40 10 which is read in at the start of the 
•able. The code here is simple to follow. P means print, L 
means left, R means right, U means up, D means down and M 
means move. Directions following a P fill in the next point in 
•hat direction with color. But directions following an M move 
the point in that direction without coloring it. A number 
before a direction tells the computer to move or prmt that 
many points in that direction. If you draw out these 
movements on a piece of graph paper you'll see the 
shape of a tree emerging. 


LMU2R 

U4I...ML 

14LD3 

LJLM3L 

4U2RP 

MDD3R 

D6LDR 

LORE 


P6RLJ5 

UP4RU 

LDL3D 

P2LMU 

2RDRD 

P4RM2 

3URUR 
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rv 


1000 REM *** BACKGROUND *** 

1010 FOR 1=0 TO 39: POKE 55856+1,11: NEXT 

1020 FOR 1=15 TO 24: FOR J=0 TO 39 

1030 POKE C0+I*40+J ,5: POKE SC+I*40+J , 121 

1040 NEXT J,I 

1050 SYS MC,0, 159, 1 19,3 

1060 FOR Y=120 TO 199: SYS MC,0,159,Y,3 
1070 NEXT Y: RETURN 








The background routine does not draw up much of the 
background, but it does set up areas of the screen and color 
memories so that the routines that do the drawing later will 
know which color to use. Line 1010 POKEs the color memory 
along the horizon with gray. And lines 1020 through 1040 
POKE the color memory of the bottom of the screen with 
green for the grass and the screen memory with cyan and 
brown, ready to draw the trees. Line 1050 uses the machine 
code program to draw a gray line along the horizon. And line 
1060 uses it again to color in the grass. 



The subroutine that draws the mam body of the castle uses 
our box drawing routme at line 13000. So before that routme is 
called line 2010 specifies the sides of the box and gives it a 
color - 2, which is red. NS - the no-stnpe variable - is not set 
- so the red-brick of castle is striped with orange mortar by 
the box routine. This doesn't look too realistic so we add 
random red bricks with lines 2020 through 2040, to break up 
the pattern and give a mottled effect. 
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To draw the turrets, the box-drawing routine at line 13000 is 
called agam. But this tune it is called twice, once for each 
turret. Again the top, bottom and sides of the box must be 
specified. But the second time the box-drawing routine is 
called, only new sides for the turret have to be specified. 
The top and bottom are at the same level. The boxes are 
filled in with color 2, red, again. And again NS is not set to 1. 
so the orange mortar stnpes are added automatically. Lines 
3040 and 3050 gives the random speckling of red bricks. To 
put the turret tops on, the screen memory in that area is 
POKEd with 1 1, which is gray, and lines 4040 and 4080 draw 
up a series of gray lines which give the pointed turret roofs. 


’S MC ACTS LIKE 

GOSue &ur 

STEW OF POING 
PART OF YOUR 
ASIC PROGRAM 
' EXECUTES some 

achine cope 



5000 REM *** MAIN ROOF *** 

5010 FOR 1=8 TO 9: FOR J=16 TO 23 

5020 POKE SC+I*40+J ,11: NEXT J,I 

5030 FOR Y=70 TO 79: SYS MC , 64 , 95 , Y , 2: NEXT Y 


V71 



The mam roof is drawn in a similar way. The number 
corresponding to the color gray, 1 1, is POKEd into the 
screen memory in the area occupied by the roof, and SYS 
MC calls the machine code routine repeatedly. This draws 
up a series of gray lines down the screen which form the 
roof. The mam roof is square, though, and simpler to draw. 

So instead of the two loops which give lmes which get longer 
as the routme moves on the screen - giving the turrets’ 
pointed roofs - only one loop is needed. Notice how this way 
of drawing a block differs from using the DRAW BOX 
routme. Both approaches can be used later when you are 
writing your own programs. 
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VI 


REM *** BATTLEMENTS *** 

FOR 1=0 TO la FOR J=0 TO 1 
POKE 1441+I*4+J , 11: NEXT J,I 
FOR Y=80 TO 87 

SYS MC , 68 , 75 , Y , 2 : SYS MC,83,91,Y,2 
NEXT Y 

REM *** WINDOWS AND DOOR *** 

POKEV+21 ,240 

Yl=14: Y2=16: Xl=19: X2=20 

C=9 : NS= 1 : GOSUB 1 3000 

RETURN 


: : : • ■ ; ! • ! ■ w- ' 



To draw in the battlements, the roof color is simply extended 
down into the wall m two square areas. So gray is POKEa 
into that area of the screen memory and SYS MC is called 
again twice. The 2 at the end of the string of figures after 
each SYS MC command tells the machine code program to 
get its color from the screen memory, rather than the colo* 
memory or anywhere else. 

The windows have already been defined as sprites m the 
initialization routine. So to draw m the windows we only have 
to turn the window sprites on with the instruction in line 7010. 
The door, though, is drawn up using the box drawing routine 
at line 13000. The sides of the door are set in line 7020 and line 
7030 sets the color to 9, brown. Since we don’t want orange 
stripes on the door, the value of NS is set back to 1, then the 
box-drawing routine is called. 

When sprites are defined, each is given a pointer which tells 
the sprite where to find its DATA in the computer s memory. 
This DATA has to be put into memory separately. Here is the 
DATA for the wmdow sprites. It is READ and POKEd into 
memory in the right place by the initialization program. 
Every number in this DATA defines a small part of each 
window when it appears on the screen. So be careful that 
you type it in absolutely right or the program will not work 
properly. It is very easy to make a mistake when you are 
keying in a long string of numbers. Be sure to double 
check it. 
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8ooo 


Bo 1 (.) 


8020 


8030 


8040 


8050 


B9 70 


B080 


8090 


TREES 


*••** 

TX=INT (RND (O) *144) 
AND TY< 136 THEN 8020 
Y=TY+I 


REM *** 

FOR TR=0 TO 9 
T Y= I NT < RND ( 0 ) *46 ) + 1 20 
IF (TX >40 AND TXC104) 

FOR 1=20 TO 0 STEP-1: 

FOR J=0 TO 15: X=TX+J 
MO=TR < I , J ) : IFMO< >2 THEN 8080 
SYS MC , X , X , Y , MO 
NEXT J , I ,TR 
RETURN 

— — "““I:; 

Now that the scene has been set and the castle is in place we 
need to add the spooky forest. One point about the forest is 
that it is never the same twice when you RUN the program. 

The ten trees are drawn up in random positions which are 
fixed in line 8020. But we don’t want the trees appearing in 
the sky or in the castle. So they are confined to the bottom 
and roughly the middle area of the grass by line 8030. If a 
TX or a TY position come up that are off limits, line 8030 
sends the computer back to line 8020 to roll the RND dice 
again. 


The area that each of the trees occupies is stepped across a 
point at a time by I and J. I moves up and down the tree, 
while J moves across it from side to side. I and J, of course, 
start working from the screen positions TX and TY worked 
out before. At each new position and a new element of the 
tree array TR is read into MO. If its not equal to 2, the 
computer skips the draw instruction and moves on to the 
NEXT point. But if it is 2, SYS MC draws in the tree trunk in 
brown, which is the color that has been POKEd into the 
screen memory of this area of the screen. 
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Testing your program 


You have now completed the part of the program that draws 
up the scenery, the castle and the spooky forest, so it will be 
as well to test them and check that they are working 
properly before the after-dark action starts, To do that, you'll 
have to add the following test lines though. Otherwise the 
mam routine will call subroutines that have not yet been 
typed in, and you will receive an error message. 


APPLE 

TYPE 125 GOTO 125 
AND RUN THE PROGRAM. 
PRESS THE CONTROL AND 
RESET KEYS WHEN YOU 
ARE SATISFIED THAT THE 
PROGRAM IS WORKING 
CORRECTLY. DELETE LINE 
125 BEFORE CONTINUING 
WITH THE NEXT SECTION. 


COMMODORE 64 

TYPE 4-5 GOTO 45 
AND RUN THE PROGRAM. 
PRESS THE RUN STOP 
AND RESTORE KEYS 
WHEN YOU ARE SATISFIED 
THAT THE PROGRAM IS 
WORKING CORRECTLY - 
DELETE LINE 4-5 BEFORE 
CONTINUING WITH THE 
NEXT SECTION. 
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MIDNIGHT 


This section of the program turns day into night. The bat. the 
witch and the burning flames appear. They are animated in 
different ways, depending on which computer you are using. 
But once you have learnt these techniques, you can use them 
in your own programs to create a variety of effects. 
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IF MACHINE COPE 
IS WRONG THE 
COMPUTER MAT 
" CRASH" ANP TOO 
WILL LOSE THE 
WHOLE OF TOUR 
PROGRAM. 


Uii 


REM PLACE MACHINE CODE 

READ L , C : T = Os MACHINECODE = P 

FOR I = 1 TO L: READ X: T = T + X 

POKE F',X:P = P + 1 

NEXT : IF T = C THEN RETURN 

PRINT : PRINT "CHECK LINES 5300 


DATA 

DATA 

DATA 

DATA 


5360 DATA 201, 64,208,222, 96 



>60": END 


57,5955,169, 

32, 

133, 

9, 

169, 

64, 

133 

11,169, 0, 

133, 

8, 

133, 

10, 

168, 

169 

85,133, 12, 

74, 

133, 

13, 

177, 

8, 

72 

41 , 128,240, 

9, 

152, 

41, 

1, 

170, 

104 

85 , 12, 208 , 

3, 

104, 

73, 

127, 

145, 

10 

200 , 208 , 232 , 

230, 

11, 

230, 

9, 

165, 

9 


rrStUi 


The machine code routine that switches day mto night is 
contained m the DATA in lines 5300 through to 5360. Lines 
5220 through 5240 READ the DATA and POKE it into 
memory. When you type in machine code you must get the 
figures exactly right. The routine adds up all the figures and 
checks them against a check sum - if you make a mistake, 
the message in line 5250 will be displayed. 

When night falls the routine at line 5000 is called. It 
immediately calls the machine code which copies the 
daytime scene onto graphics screen 2. 



5000 REM CAUSE NIGHTFALL 

5010 CALL MACHINECODE: REM CREATE NIGHT ON SCRN 2 
5020 POKE GPAGE , 64 : REM DRAW ON 2ND SCREEN 
5030 HCOLOR= 3: DRAW 2 AT 15,7: REM MOON 
5040 FOR X = 1 TO 2000: NEXT :X = PEEK ( P2GE ) 

5050 POKE GPAGE, 32: GOSUB 5100: REM LIGHTNING ON SI 
5060 POKE GPAGE, 64: RETURN : REM NEXT PLOTS ON S? 
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4200 REM MOON 

I 4210 DATA P5L3R D6LDL 6RD7L DL7RD 8LDRD LM3RP 3RM3R 

O 4220 DATA DP2L.M 5LP3L D4RD4 LD10R UU3LR DRRDD 10LD1 

4230 DATA ORDRR 12LRD 1 1RLD 10LRD SRMD4 LP4LR D3RM2 

4240 DATA RP2RL D5LRD 6RDR6 LRRD7 RLD4L E 


\/l 




POKEing GPAGE with 64 in line 5020 allows you to draw on 
the second screen. Remember that the first graphics screen 
ts still the one that is appearing on the TV screen. The first 
thing to be drawn on screen two is the moon. The DATA for 
the shape of the moon is read in from lines 42 10 through 4240 . 
L,ike the rest of the shape DATA, it ends with an E. When the 
• hape-table routme READs an E, it knows that it has reached 
•tie end of the shape. This is shape two, so the DRAW 2 
instructions in line 5030 draws the moon up. It is drawn in 
color 3, given by the HCOLOR command and the moon is 
drawn at coordinates 15 , 7 . Next there’s a 2,000 time period 
pause. Then, by PEEKing P2GE, the second graphics screen 
appears on the TV. Line 5050 POKEs GPAGE with 32 which 
allows you to draw on the first screen again. The computer 
then goes off to the subroutine at line 5100 to draw in the 
lightning. When it has done that POKEing GPAGE with 64 
lets you draw on screen 2 again. 

The lightning is drawn on graphics screen 1 by lines 5100 
through to 5150 while the other screen is displayed on the 
TV. The lightning is drawn in color 7, white, and is made of a 
long narrow triangle which thins toward the bottom. Every 
23 lines down the screen this triangle is given a quick shift to 
the left to give it the proper jagged look of lightning. 


rv 


5100 
5110 
5120 
5 1 30 
5140 
5 1 50 


HCOLOR- 7: DX = OsC = 0: REM DRAW LIGHTNING 

FOR Y = 1 TO 100s C = C + 1 

LET D1 = Y * . 96: D2 = Y * 1.25 

IF C = 23 THEN DX = DX + 29 + D1 - D2:C = 0 

HPLOT 250 - D1 + DX,Y TO 279 - D2 + DX,Y 

NEXT : RETURN 



k/1 
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To flash the lightning, the screen is changed to screen 1 by 
PEEKing P1GE. This displays the day screen with the 
lightning drawn on it on the TV. 


2400 REM FLASH LIGHTNING 
2410 LET X = PEEK (P1GE) 
2420 FOR X = 1 TO 60 
2430 NEXT :X = PEEK (P2GE) s 


\yi 




\ — rLcr\ sr 2GE) : RETURN 


31 


REM BAT ROUTINES 

HCOLOR= 3: BN = 0:BA = 3:BR = 2:BX = 70 

GOSUB 2260: XDRAW 3 + BN AT BX , BY: RETURN 

HCOLOR- 3: X = BX:Y = BY: GOSUB 2260 

XDRAW 3 + BN AT X,Y:BN = 1 - BN 

XDRAW 3 + BN AT BX , BY : RETURN 

LET BX = BX + 2 * COS (BA) + RND (1) 

LET BY = BR * SIN (2 * BA) + 65 

LET BA = BA + . 1 : BR = 2 * LOG (BA): RETURN 

HCOLOR= 3: REM REMOVE BAT 

LET X = BX:Y = BY: BY = BY - 1: GOSUB 2240 
FOR X = 1 TO 50: NEXT : IF BY > 2 THEN 2310 
GOTO 2250 


To make the bat appear to flap its wings there are two bat 
shapes in the shape table: one with the bat’s wings up and 
one with the bat's wings down. The shapes are switched by 
the BN= 1 - BN sum. The XDRAW command is an "exclusive" 




draw. This means that drawing a new bat shape will blank 
out the old one. The path that the bat takes when it flies is a 
spiral, fixed by the instructions in lines 2260 through 2280. 
The subroutine that removes the bat calls the same drawing 
routme but its path is fixed by lines 2310 through 2330. When 
this routine is called, these lines make the bat fly off the top 
of the screen. 



4300 
43 1 0 
4410 


REM BATS 1 & 2 

DATA MLJURP RRDRD 3RURU RDRD3 LD3RU 3RURU RRE 
DATA P6RUR URDRD 3LD3R U6RE 



The DATA for the two bat shapes is given in lines 4310 and 
4410. Note that there are two "Es” in the DATA, so that the 
computer knows that there are two shapes. Draw the two 
bats on graph paper, using the DATA, in the way explained 
on page 30. Then along comes the witch. 




2 1 00 
21 10 
2120 
2150 
2160 
2 1 70 
2180 
2190 


REM WITCH ROUTINES 
HCGL.OR= 7 : WX = 30: WY = 10 
AT WX , WY : RETURN 
7: REM MOVE WITCH 
WX: IF WX < 0 THEN 
260 THEN WX = - 1: 

WX + 1: XDRAW 5 AT 


VI 


XDRAW 5 
HCOLOR= 
LET X = 
IF WX * 
LET WX = 


XDRAW 


X , WY : RETURN 


RETURN 
GOTO 2190 
WX , WY 





4500 REM W I TCH 

4510 DATA PRDLD LLMLD P3RD4 L.DP2R M2RPR DRDRM 4RDP1 
4520 DATA 8LD3R MUULP 3LM7R UP2RD 2LM2D RP2RD RDl-DD 
4530 DATA RE 

a&gjg&ji; : 1 — $ w z — ' 


In the witch routine, the XDRAW instruction is used to draw 
the witch over the background, but the background is 
returned intact when she has passed by. When the witch 
moves, two XDRAWS are used one after the other. The first 
draws up the new witch, the second blanks out what was left 
of the old one. Line 2170 detects when the witch has reached 
the edge of the screen, skips the new drawing instruction 
and goes straight to the blanking out line. 


2500 

LET 

H = 2: W = 2: REM 

2510 

FOR 

I = 1 TO 400 


2520 

IF H 

< 70 THEN H = 

H 

2530 

IF W 

< 118 THEN W = 


2540 

LET 

X = RND (1) * 

W 

2550 

I F I 

/ (X + Y) < 2 

* 

2560 

LET 

X = OX + 132 - 

X 

2570 

HCOLOR= 4 + 2 * RND 

2580 

DRAW 

3 * RND (1) + 

1 

2590 

NEXT 



2600 

REM 

CASTLE CRUMBLES 


2610 

LET 

XU.) * 60s Y ( 1 ) 

= 

2620 

LET 

X (2) = 200: Y (2) 


2630 

GOSUB 6100: RETURN 



ANIMATE FIRE 


RND (1) * H 
(1) THEN 2540 

( = 80 + DY - Y 


OsC(O) = 0 
= 110iC(l) = 


0 


There are three flame shapes and these are called up 
randomly, in random colors, in random positions that 
gradually cover the castle. The castle is made to crumble 
simply by printing a block of black over it using the 
subroutine at line 6100. 


^ 4600 REM 3 FLAMES 

4610 DATA P3LU3 RLJ3LU 2RU2L URURU LIJRUE 

® 4710 DATA P3RU3 LU3RU 2LU2R ULULU RULUE 

4810 DATA M3UPU 2L.4RU 4LRUR RULE ^ 


/ 




<<s 


N* 


V 


oV 


<t 

V* 


4900 REM SKULL 

4910 DATA P17LD 2LDLD LDLDL 2DL4D L7DR4 DR3DR DRDRD 
4920 DATA RDR3D 19R3U RURUR URUR3 IJR4UR 7UL4U L2ULU 
4930 DATA LULUL U2LLJM 13DPL U4LDL 6DRD5 R7UM1 1LPLU 
4940 DATA 4LDL.7 D5RUR 6UM10 DP4D5 R4ULU 3LDLM 6L14D 
4950 DATA P2DR4 D15R4 UR2U1 7LE 


VI 


HP!' i — ; \ - Hi — "-5 « — — 


The skull in the sky is enlarged by setting the SCALE to 2. 
And it is made to shimmer eerily in the sky by altering the 
position it is printed in slightly. The X position is shifted 
randomly by 3 high-resolution screen positions and the Y 
position is shifted randomly by 4. Line 2730 rolls the RND 
dice for these shifts. The skull, which is shape 9, is then 
drawn by XDRAW. This also blanks out the last skull that 
appeared on the screen. The skull is printed up - and 
blanked out - 2,000 times before the computer RETURNS 
from this subroutine and the whole program ENDs But, until 
then, the effect is very eerie indeed. 


G 

0 


2700 

2710 

2720 

2730 

2750 

2760 


REM SKULL IN SKY 
HCQLOR= 7: SCALE= 2 
FOR I = 1 TO 2000 

LET X = RND (1) * 3:Y = RND (1) * 4 
XDRAW 9 AT 148 + X,10 + Y 
NEXT : RETURN 





All that is needed now to make the whole program work is 
shape-table DATA for the skull itself. This is typed in the 
code which consists of print and move commands and 
directional instructions as before. See if you can trace out the 
shape on a piece of graph paper. This will give you a clear 
outline of the skull shape, without the shimmer that is given 
by shifting its position when it is printed successively on the 
screen. And like the rest of the shape DATA, the skull's 
DATA ends with an E that tells the part of the initialization 
routine which is filling the shape table that this is the end of 
the last shape in this program. The machine code routine on 
pages 8 and 9 can be used in other programs that you write. 

It makes it much easier to create character shapes on the 
Apple lie. 
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9000 REM *** NI6HT TIME 

9010 POKE 53281,0 

9020 FDR 1=0 TO 8: FOR J=0 TO 3 

9030 POKE SC+ I *40+ J , 7 

9040 NEXT J,I 

9050 FOR 1=0 TO 16: V=5+I 

9060 FOR J=0 TO 7: X=5+.J 

9070 MO=MO ( I , J ) : IF M0>3 THEN 9090 

9080 SYS MC , X , X , Y , MO 

9090 NEXT .3,1 

9100 RETURN 


***• 




Making darkness fall is easy. The POKE in line 9010 changes 
the background color - which was the sky's light blue - to 
black. But then the moon has to appear. Lines 9020 through 
9040 POKE an area of the screen memory with 7, the code for 
the color yellow. Lines 9050 through 9090 draw in the shape 
of the moon there using the machine code call SYS MC The 
DATA for the moon is read out of the array MO 

That same DATA is READ into the array MO by the 
initialization routine. But at that time we did not give it any 
DATA Here it is now. You'll notice again that the shape of 
the moon is given by the 2s. In the mght routine, line 9070 
skips the machine code call if it hits a 4 and nothing is 
printed on the screen. The points making up the moon are 
only printed on the screen when a 2 is found. Each 2 is also 
used in the SYS MC in line 9080 to tell the machine code to 
take its color from the screen memory. 


20220 

REM DATA FOR MOON 

20230 

DATA4 ,4, 4, 4, 4, 2, 2, 2 

20240 

DATA4 ,4, 4, 2, 2, 2, 4, 4 

20250 

DATA4 ,4, 4, 2, 2, 4, 4, 4 

20260 

DAT A4 ,4, 2, 2, 4, 4, 4, 4 

20270 

DATA4 ,2, 2, 2, 4, 4, 4, 4 

20280 

DATA4 ,2, 2, 2, 4, 4, 4, 4 

20290 

DAT A4 ,2, 2, 4, 4, 4, 4, 4 

20300 

DAT A4 ,2, 2, 4, 2, 4, 2, 4 

203 1 0 

DAT A2 ,2, 2, 4, 4, 4, 4, 4 

20320 

DATA2 ,2, 2, 4, 4, 4, 4, 4 

20330 

DAT A2 ,2, 2, 2, 2, 2, 4, 4 

20340 

DATA2 ,2, 2, 4, 4, 2, 4, 4 

20350 

DATA2, 2 ,2, 4, 4, 4, 4, 4 

20360 

DAT A4 ,2, 2, 4, 2, 4, 4, 4 

20370 

DAT A4, 4, 2, 2, 2, 2, 4, 2 

20380 

DAT A4 ,4, 2, 2, 2, 2, 2, 4 

20390 

DATA4 ,4, 4, 2, 2, 2, 4, 4 




v>n 




/ m S ; : 








35 



1 0040 
1 0050 
10060 
1 0070 
10080 
1 0090 
1 0 1 00 
101 10 
10120 


REM *** MOVE BAT 

FOR D=0 TO 30: NEXT 
T=l-T: POKE 2041 ,35+ T 
IF X<1 OR X >69 THEN DX=-DX 
IF Y< 49 OR Y >99 THEN DY=-DY 
IF RS=255 THEN DX=1: DY=0 
X*PEEK (V+2) +DX : Y=PEEK (V+3) +DY 
POKE V +2 , X : FOKEV+3 , Y 
RETURN 


*** 




The subroutine that moves the bat starts with a 30 time 
period delay. The little sum T= 1-T in line 10060 flips the 
number of the DATA block POKEd into the bat's sprite 
pointer between 35 and 36. Lines 10070 and 10080 change 
the bat's direction when it has reached its limits. Lme 10090 
sends the bat off screen when the witch comes by and the 
rest of the routine fixes the bat’s sprite position. 


rv 


20790 REM BAT - WINGS UP 

20800 DATA 0 , 0 ,0,0, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 28 , 0 
20810 DATA 56, 1 19,0,238, 129,219,129,0,60,0,0,24,0,0,36 
20820 DATA 0 , 0 , O , 0 , 0 , 0 , 0 , 0 , 0 , 0 , O , 0 , 0 , O , 0 , 0 , 0 , 0 , O , 0 , 0 , 0 
20830 DATA 0,0,0,0,0,0,000 
20840 REM BAT - WINGS DOWN 

20850 DATA 0 , 0 , 0 ,0,0,0, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , Oi 
20860 DATA 0,0,129,219,129,119, 60 ,238,28, 24 , 53 , 0 , 36 , 0 
20870 DATA 0 ,0,0, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ,0,0, 0 ( 
20880 DATA 0,0,0,0,0,000 




The bat needs two lots of DATA - one to draw it with its 
wings up and one with its wings down. These are read into 
blocks 35 and 36 by the initialization routine. So each time 
the bat routme is called, the other picture is printed up. 
Alternating between the two images in this way makes the 
bat appear to flap its wmgs as it flies. 

The witch flies on her broomstick though. Since she has 
no wings, she only needs one block of DATA for the 
one image. 


20730 REM WITCH 

20740 DATA 0,0,0,0,60,0,0,14 

20750 DATA 0,0,15,0,0,15,192,0,23,0,0,7,128,2,15,0,1 
20760 DATA 255 ,0,3, 255 ,128,4,249,128,0,60,192,160,1 26 
20770 DATA 224,84,126,112,171,255,255,84,191,0 
20780 DATA 128,7,0,0, 30 , 0 , O , 60 ,0,0,112, 0 , 0 , 1 1 2,0, OOP 




- — ■ • •• — r"™ 


36 




/a 




REM *** 
P<0>=116:F'(1> 
P (4) =138: P (5) 
FOR 1=0 TO 7: 


BURN *** 

= 107: F' (2) =228: P (3) =107 
=147 : P (6) =206 s P (7) =147 
POKE V+ I , P ( I ) s NEXT 


POKE 0+16,0: POKE V+28,255 

FOR I =0 TO 3 : P0KE2040+ 1,33: P0KEV+39+ 1 , 2 : NE XT 


| ji— wlO 


: T =0 


POKE V+21 
FOR BU= 1 TO 200: T=l-T 
POKE V+37 , 0+7*T : POKE V+38,7-7*T 
IF BU= 1 00 THEN GOSIJB 11140 
IF BU=50 THEN GOSUB 11160 
FOR D=0 TO 40: NEXT 
NEXT BU : POKE V+21,0 

FOR Y=0 TO 117: SYS MC , 40 , 120 , Y , 0: NEXT: RETURN 

FOR 1=0 TO 3: POKE V+2*I ,P <2*1 > -12 

POKE 0+29,15: NEXTI : RETURN 

FOR 1=0 T03: POKE 0+ 1+2*1 ,P <2*1+1 > -20 


POKE o+: 


NEXTI: RETURN 




Lines 11010 and 1 1020 give the coordinates of the flames. 

Line 1 1040 sets the spntes to high-resolution mode, and line 
1 1050 sets their color to 2, or red. Once the flame sprites are 
turned on, the burn time. BU, is set to 200. Line 1 1080 flips the 
sprite’s high-resolution color between yellow and black to 
make them flicker. When BU reaches 50, and again at 100, 
the program branches to subroutines which make the sprites 
expand. But when that happens the sprites have to be 
repositioned. Line 1 1030 finally bums the place down. 


20650 

20660 

20670 

20680 

20690 

20700 


U1 




REM FLAME 

DATA 0,192,0,0,4,0, 1 ,0,0, 1 ,204,0,5, 196,0,5, 196,0 
DATA 5,76,0,7,100,0,7,164,0,7,225,0,1,225,0,1 
DATA 233,0,192,232,112,48,104,112,60,232,1 12 
DATA 25,229,64,58,109,192,14,229,192,14,105 0 

DATA 192,7,186, 180, 1 ,174,180,255 


All the flames are the same shape, so they only need one lot 
of DATA This is POKEd into memory by the initialization 
program. They don't all look the same on the screen though, 
because of the use of constantly changing colors. 


V 


* 


i 






1 00 OO 
10010 
10020 
10030 


REM *** 

FOR LI = 1 TO 0 
P0KE5328 1 , L I : 
RETURN 


LIGHTNING 
STEP-1 
FOR D=0 TO 


*** 




50: NEXTD , LI 


All the lightning subroutine does is to make the lightning 
flash. The lightning appears when 53281 is POKEd with 1. 
After a pause caused by the machine counting to 50, the 
lightning disappears when it is changed back to black again. 


12000 
12010 
12020 
12030 
12040 
12050 
12060 
12070 
12080 
1 2090 


NEXTJ 


REM *** SKULL 

FOR 1=1 TO 12: FOR J=15 TO 
POKE SC+ 1 *40+ J , RND ( 0 > *255 : 

FOR 1=14 TO 0 STEP -1: FOR J=0 TO 9 

MO=RND ( 0 ) *2+ 1 : IF 5K(I,J)=4 THEN 12080 

X=60+J*4: Y=40+I*4 

SYS MC , X , X+2 , Y , MO 

SYS MC, X , X+2, Y+l ,M0 

NEXT J,I 

RETURN 





To create the eerie skull, lines 12010 and 12020 POKE 
random color values into the screen memory in the area that 
is going to be occumped by the skull. The DATA for the skull 
is read out of the array SK If the element of the array for that 
particular area is 4, the drawing lines are skipped. Otherwise, 
random numbers between 1 and 3 direct the machine code 
to pick its colors from different areas of memory. 

The Os in the skull data draw out the shape of the skull and 
the 4s are left as the background. 


Wr* 


20400 

REM 

DATA FOR 

SKULL 

2041 0 

DATA 

4,4, 4,0,0 

, 0 , 0 , 4 , 4 , 4 

20420 

DATA 

4,0, 0 , 0 , 0 

,0,0, 0,0, 4 

20430 

DATA 

4,0, 0 , 0 , 0 

, 0 , 0 , 0 ,0,4 

20440 

DATA 

0 , 0 , 0 , 0 , 0 

,0,0, 0 , 0 , 0 

20450 

DATA 

r* 

o 

* 

r* 

O 

,0,0, 4, 0,0 

20460 

DATA 

0 , 0 , 4 , 4 , 0 

, 0 , 4 , 4 , 0 , 0 

20470 

DATA 

0,0, 4, 4,0 

, 0 , 4 , 4 , 0 , 0 

20480 

DATA 

0 , 0 , 0 , 0 , 0 

, 0 , 0 , 0 , 0 , 0 

20490 

DATA 

4, 0,0, 0,4 

,0,0, 0,0, 4 

20500 

DATA 

4,0,0, 0 , 4 

,4,0, 0 ,0,4 

20510 

DATA 

4 , 0 , 0 , 0 , 0 

,0,0, 0,0, 4 

20520 

DATA 

4 , 4 , 4 , 0 , 0 

, 0 , 0 , 4 , 4 , 4 

20530 

DATA 

4 , 4 , 0 , 0 , 0 

,0,0, 0,4, 4 

20540 

DATA 

4, 4, 0,4, 4 

, 4 , 4 , 0 , 4 , 4 

20550 

DATA 

4, 4, 0,0,0 

,0,0, 0,4, 4 



t 
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Program listings 

What follows is the complete program for both computers. 
List the program and check it against the full listing here. 
Even the smallest mistake can cause problems. Take special 
care to check the DATA lines. A comma out of place here 
can stop the whole program working. When you have a full, 
working program, SAVE it on tape or disk, using the 
commands in your user's manual. 


APPLE lie 


I NT 


256> > 


REM &TMRT WITCH 
REM MOVE WITCH 
REM START RAT 
RfcM MOVE PAT 


REIUPN 

nnin ri9.. 


l REM HAUNTED .HOUSE 
5 DEF LN HOD(X> * 256 • IX / 756 
100 GOSUB lOOO: REM INITIALIZATIONS 
llo GUSUB 6000s KEM B ACT GROUND * CASTI E 
120 GOSUB 6900: REM TREE 5 
130 GOSUB 5000 1 REM NIGH I FALL 
140 GUSIJB 7400: REM LIGHTNING 
ISo F OR ri * I TO 290 
160 IF T I * to THEN GOSUB 2100: 

170 IF Tl 10 THEN G05UP 2150: 

ISO IF Tl * 30 THEN GOSUB 2200: 

190 IF TI 30 THEN GOSUB 2230: 

IuO IF END ll> .1*7 I HEN GD9UB 3400* REM LIGHTNING 
210 NEXT Tit GOSUB 2300: Rf M REMOVE BAT 
22u GOSUB 24. (A, GONUP ?4 - : RFM STORM 
230 UOSIJB 2500* RFM FIRE 

240 I OR X - 1 TO 1000* NEXT : GOSUB 2700* HEM ST ULl 
25*.> TEXT : TND 

lOOO REM I NIT I At. I ZE PEEK. AND POKE ADDRESSES 
1010 LET P1BE = 49236*F2GE = 49237 
1U2’ 1FT I lit l SCREEN 49?74:GPOGF - 230 
1030 I ET Cl JO 49300 * p = 24576 

I *.*40 GGSUD 3000* REM SET UP SHALE TABLE 
1050 GOSUB 5200: REM PUT MACHINE CODE IN 
1060 MOP :* PEE I 1 LUt LUCRFFN) 

1070 SCALE* li ROT «= O* RETURN 

2100 REM WITCH ROUTINES 

2110 MCOLOR* OW* * 30* W. 1“ 

2120 XDRAW AT WX,WVr RETURN 
2l5o HCOLOR* REM MDVF WITCH 
2160 LET X *= WX: IF W* .. )M£N 

2170 IF WX = 260 THEN W* - 1* 

2 1 BO LFT WX - W« ♦ t* XDRAW 5 AT WX.Wv 

2 1 VO XDRAW 5 AT X,WY: RETURN 
2200 RFM PAT ROUTINES 

2210 Ml 01 OF ‘ ^:PN = OsPA = 3: PR * 2:BX - 7. • 

2220 GCISIIF 3260* XDRAW ♦ HI* AT B<,P«: RETURN 
HCOI UF~ Til ^ PX*» = BY* GOSUB 2260 
X DRAW 7 f HN AT X,V*HN = I BN 

XDROW 5 + BN AT R*,PYt R FT URN 

LET px = BX + 2 ♦ COS iBA> P RNO «I> 

LET BY = BR • SIN (I • BA) < 65 

LEI BA = Bh ♦ . lx HR - 7 * I 13f» IBA-* RETURN 

HC-U1 UR = 3: REM REMOVE PAT 
LET X = BX:Y = BY* BY BY 1* 

FOR X - l TO 50* NEXT : IF By 
GOTO 2350 

REM FLASH LIGHTNING 
LET X = FEEL IPIDE* 

FOR X * 1 TO 60 

NEXT t X PEF* • P2GE * : RETURN 
LET H * 2*W = 2s REM ANIMATF FIRE 
FUR I - I TO 400 
IF H 70 .THEN H = H ♦ 1 
If W 11B THEN W = W + 1 
I ET X * RND ll> * W:V - RND 111 • H 
IF I / (X + Y> 2 * KND (I) THEN 2540 
LET X * OX ♦ 132 - X 

HCOLOR *» 4 + 2 • RND C 1 > * V * BO 4 OY - V 
DRAW 3 • RND (l) ♦ 6 AT X,V 
NEXT 

REM CASTLE CRUMBLES 
LET XU) * 60*Y<1) * Ol C ICO * 0 
LET X (2) * 200* V (2) * JiOlCM) * u 
GOSUB 6100: RETURN 
REM SKULL IN SLY 
HCQl.OR* 7, SCALE* 2 
FOR I * I TO 2tfOO 

LET X » RND <H • 3* Y RND (I) • 4 
XDRAW 9 AT I4H ♦ X,IO ♦ Y 
NEXT 1 RETURN 

READ SN* REM SHAPE I MBLL Ski UF 
POKE P,SN* POKE F' ♦ 1 ,0l8T « P * 3 
POFE 232, PN HDD IP): WF 23', I NT IP / 756) 

LET PST 4 2 • SN 
rnR SB A to SN - 1 t T * » 5! ♦ 7 

I F.T A ST 4 2 • SM FUFF A, FN MOD IT) 

POKE A -4 1, INI (I / 756) ID* • ""iR = o 
POPE P,25*f - P 4 I I RnSUB :150: ML XI 1 RETURN 
Li I X H: FOR 1 = 1 UJ R 


223o 
22 4 u 
2250 
2260 
2270 
2280 
2300 
7310 
2320 
2330 
240o 
2410 
2420 
243o 
2500 
2510 
2570 
2530 
2540 
2550 
2560 
25/0 
2580 
2590 
2600 
2610 
2620 
2630 
2700 
2/10 
2/20 
27 TO 
2750 
7760 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
30 /o 
31QO 


BO SUB 224o 
2 THEN 2310 


COMMODORE 64 


c. fVEM STARTER PROGRAM ••• 

IO FOR 1*0 TD 214: READ D: CS=CS4D 
30 POf E 4915241 ,D: NFXT I 

TO IF CS 29713 THEN PRINT "DATA FRROR • " : END 
40 POT E64L ,64:BYS6A?66 

I OO DAT An , .'7, 25 ’ 1 174, '2, 158. 10 % l '4 , 753 ,7-2,25% I 74 
llO DATA31, 158, IP'. ! 7-0. 72, 32,25' , t 74 , 32, l 58, t S3 , 1 7R 
120 DA F A4 1,7, I ",254, 1 58, ’*,74.74, I 33 ,251 , U «. I* • 
i Id DATA101 , 251 Jfeu.t., 1 62,0,1 34,252, 42. 58,252,1 r& 

140 DATA?OB,250, 101 ,254,1 ' ',751 ,165,253,41 ,75?, I", 144 

1 50 DATA3, 230, 252, 74, 101,25 . 1 : , 65, 52,1 r 

U DATA) . • . ,253, 4, 2,158,183,1 38, 14 A, . • 

• •*• DAI A16I ,3,10, 10, 1 3,0, 191,131 1 : . :«i ,0 

IRC. DATA 1 92 , i 65 , _ : , M. ^4, M3, 255, -4, 1 77, .54,74, 74 

190 OATA56,229,753,240,52, 133,255,32^ 178, 192, 32, Mv 
700 DhThU:, 169,1,. 74 , 101 ,251 , 1 :■ 7,251 , 16 % ?*"?. 1“5,0 
210 DATA 13 r ,7S2. I 9B, 753,240,8. 173,0, 192. 1 15,751 ,76 
220 datai .‘I . J 92 , - . , 1 9 r , 1 92, 72, 7 ' , 255', 4 ,251 145,251 

?'** DATA 1 04 ,45,0, IV. , I %?5I ,145,251,96,'.?, « '8,19? 

740 DATAI 33,255,37,197, 1 97.3% 255, 7 t ,(49.197. 169.255 
75" DAT A 72 , !6S,?5%4| .'. 740 . 8.1 I 04 , 7 4 ,94,202 

260 OAT A2c4! , 75 % 96 , U M , 96 , 1 69 . . • ,71 , I ^9 , 252 , S , 754 
770 DAT A i 70,1"4.2T2*208, I ,96. 1". I 0. 76 , 706, 1 97 


5 REM =«=HAUM1ED HOUSE- 

1* * liOSUP 1 4"OOj R£ M INTT1F4 I7E 
20 GDSUP l"»Ki : REM PAD GROUND 
V. OOSlip ?ooo : REM CAST I F 

4-i tiOSUB 8000 sREM TREE 7 

50 nnsup v.m.i* *rem niuhi 

hC< POLE V«21,743rDX 1:DY= 1 

7m F OR WX - 1 TO ' 46 STEP . : l 1=RUD U.o •20 

r?o IT II 19 1HEM GOSUB 1 •>,*•,* :F;FM I IGH1NING 

90 IF W> ?55 THEN RS*25f- 1 POF F V^I6,3 
1CM> POLF V+o,WX-RS*REM WITTH 
II A GOSUB lu< *4 m s REM (<AT 
I -v NEXT WX* I EM E V * 7 I , 740 
130 onSUB 1 1 1 m im* REM Rtlt-O 
1 4" ROSUB 12uoo:RFM SUM t 
150 END 

t •"««'>* 1 REM 8ACLURUUND 

1010 FOR 1*0 TO 39 1 r I I) L 35856 ♦ I , 11 : NE XT 

1020 FOR I 15 I tl 21: FOE .1=0 TO W 

107" POT F EO) I ♦40-*-,) ,5s FUI F SC* I •4*m J . I 71 

1040 NFYT J, I 

U>v* sys nr, •-•, mv, ii9, : 

1060 pnp Y*12C TU l'»9* S« ML , • • , 159 . Y , 3 
IM/O NEXT Y: RETURN 

7000 REM ••• IAGTIF MAIM RGDY •>** 

201 '*ti - L6*» |4* ■ . *60 

207 . . F OP T *oT0ft9f *^RND << • •4B) *..r, 

2030 SYS HC.X.X.RNCl'- 0*36+80, 2 
2040 NE X I I 

RF« 1IIRRF1S LEM • PIHM1 **- 

7010 V 1 =6: Y2* I I : * I 12: * 7* 1 5: C = 2* GOSUBl 3000 
7020 1 1 =1 4 : * . *: GnSI IB I ' » "> • 

3030 FOR 1 "• TO 79 

•..41. < RND 1 0 ) * 1 6+48 s :> I S 111 RND '« +4A+48, * 

-.50 •-RND"'"*l6+V*::. ' Ml . • , > .RND 1 *4B+48, 

3060 NEXT 1 

40.10 RFM *•* TURRET TOPS *♦* 

401** FORI*! TO 5: FOPd' 1 1 TO 16 
4070 POKE SO t»4n 0,111 UPXT.1,1 
4 7.. FDR 1*1 T U9 S POF 1 ' in' 

4040 SYS MC,56-1,35M,8+1«40,2: NEXTJ.I 
4050 FOR 1*1 TCJ5* F0R.J*?%T>7S 
406* » PUKE SC^I*4AO, I l; NE*TJ,l 
4u70 rORI^lTDV* FORJ*0TO3 

<K»8».' SYS MC, 1<*4-1 , 103+1 ,8+1*4*. 1,7* NEXT.!, I 
5000 REM •** MAIN POOF **• 

5010 FOR 1-0 10 9* FOR l=le> IU ?Z 

50 20 PUT fc SC + 1 • 4 ' ) ♦ J , 1 l : NEXT J.l 

5*730 FUR Y-*-70 TU 79: Ml. ,64 ,95 , Y ,2* NEXT V 

6<X>n RFM •#» PATTI EMFNTS ••• 

6i.UA FUR l-<* TU i* FUR J "< IT) 1 
6U20 !=»€»<£ 1441 + 1 »4 + J , 1 1 * NEXT J,I 
6030 FUR Y=80 1 Tl 87 

61.40 SYS MC,68,7S,Y,2: SYS MC,B3,9I . v . 7 # 
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I APPLE He continued 













1 > 


H UR X 
PFIFK <P 


I HFN *.150 
1): fimtl 514 m 


IF PEEK CP 
POLL I 1,0 * 

FOIE E*,X:P * P * I 
NEX1 t K O 

U D! = MH THEN READ GT* PR1NI ". M » 
if! A$ - LEFT t < Dl , 1 > 

ELI D4 = Ml 1)4 CD*, 2% LEU tUf) !) 

If- hI h R« t HE N X t: bUIO *- 1 • 

IK A* - "p M I HEW X GLUU *|mi) 

IF At ^ "1." I HEN X 3 j GOTO |Mu 

IF A* “U** I HEN « 12B: WHO ’loo 

IF ,41 - **M M THEN P - Os GOTO 3150 

IF AT - "P” THEN R 4* ROTf.l .*450 

(I .4 - M M THEN ’150 

IT A4 "O'* UK Ai **9 M IHFN 5?7fi 

R ♦ VAI »A4): GQTfl 7150 


IO 


RETURN 


PUTE F,<: POKE P ♦ 1,'iiF - T 
RFrt 9 GRAPHIC ELEMENTS 
OAT A V 
REM IRE F 

DAIn I J)UD 9LM-I. ITEM I HE ' MR l II 7 LMII.fT P6RU5 
DMA I I I4RM IH i *1 MURF PHHHP 41 M4R U4l Ml UP4RU 

DATA 4MF4R U41 ML lit 7RM 5RUI-. I.ILM P 141 D! LDI *4* 

DA T A MRBUP DRJD'- RM3RP VKMRU P11LU ULM T P2LMU 
DmIm FFRti l Ml ir- PP 3HU „i U2I U2I.LIM 41 CR*- 2RDRU 

data RlDRO PL DfvD HI OKU RLDRO KOI PR M0D3R F 4RM.“ 

DAIA M mi I .RUE I (ROOM MloU- IM Dl DAL DR FRLJR 

D.«IH H.'LPL 51)1:: LCREir ['LORO -LORD I ORE 
REM lit (UN 

DMA PM 7R D6CDL 6RU71 DL ^KD BU'LR I.M3RP ’KH3R 

DATA 14 .3 M 5LP31 04RD4 LDl"K MI3LR DKPllO I OLD I 

DATA mRDRP 1-LRlJ I IRI U JmLRD RRM04 1 1 41 R 03RM2 

DATA Rp.l-.l DM PL' 6HDR6 L.RRD7 RLD4I E 

KFM »'M« 1 '• . 

DATA MCJUW KRUNO ’-RURO NURD • D .RH KURLI UNI 
DAI A P6RUR UR DAD 31 D^P M6RE 

REM U I 1 LH 

DATA PRUI 0 Li Ml D P:RI)4 I DP2R HVkPR DKDRM 4RDI I 

data bi djr uum r 3LH7R iiftrd rf7rd rolod 

DATA PI 
REM ' FLAMES 

DA I A PM.U1 RLk’l II .’HI I2L UKUKH I I IF I IE 

DAIm F ’RIP- LU .RU J1U7N UEULU Rl H UE 

DATA M3UPU n 4RU 4LNUR Kill E 

REM zil III l 

DA I A I ! 71.0 I’t DLD L DL IH . DL 4L> L DR 4 DR3GR DRDNO 

DMA RDIC'D 19R3U RUM JR UR LIP 3 IFF. FUR 71 It *4U l JIM H 

DATA I LM HI LL-LUH J I ‘PI U4LR. ..bf<D5 R/IIMj HHII 
Um I A II DL? D5KUN MJMln DP4D5 R4III II 31 l.'LM M 1 4D 
DAI A P7DR4 l)l5R4 UR.U1 *11 
RCM C/«UtiE NIGHTFALL 

TAIL MALHlNFCODEr HEM I REATE NIulll UN SL RN 

FOIE bl ABF ,64* REH DRAW ON 2ND • REFN 

HLOUIP DRAW . AT 15. r RCM UUON 

| ill < - I in ME* I : X ^EEF 

Flll't Erf'»4*l . "’-'J GUSIJD M'-H'j REM I IMMINING OF4 SI 

Fin | MF (kl.[ ,^4s RETURN J REM Nl *1 PI PTE MN *•? 
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COMMODORE 64 continued 
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2003* • DAT A4 . 4 , 4 . 2 , 4 , 7,4, . , 2 , 2 , 4 , 4 , . I 

h >t„y DATH4 ,4. 4, 4, 2, 4, 4, 4,: ,4,4,2,. ,4.4,4 
20070 DATA4 ,4. 4, 4, 2. 4, 4, 4, 2, 4, 4, 2.2, 4. 4, 4 
0080 DA T A4 ,4,4,. . .4, 4, 4, . ,4. . . 4.4.4. J 

2009- * PAT A4 ,4, 2,4,?, 2, 2, 2, 2 , 4, 2. 4, 4. 4. 2. I 
£•• 1 O'!' DAT 04 ,4,4, 3,4, 4, 2, 2.: ,7. 4, 2, 4, 4. 4, 4 
2' ' I 1 m DATA4,4. 1.7.4, 4,. , . ? . 2 , 4 , 2 , 4 . 4 . 4 . 4 
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20140 L‘A T h4 ,4, 4,4, 4,. .. . • , 4 , 4 , 4 , 4 , 4 . 4 . 4 

7'. 150 DAIA4 . 4 . 4 . 4 , 4 , 2 . ? , 7, 2, 4 , 4 , 4 . 4 .4 , • . 4 
2m16i.i DATA4 ,4, 4, 4, 4 , 2, 7, 2, ^,4. 4, 4, 4, 4, 4, 4 
2* > ! - ■ DAT A 4 , 4 , 4 , 4 , 4 , 4 , 2 . _ . ,7, 4. 4. 4, 1.4, 4 

7" 10" DOT 04 . 1 , 1 . 1 , -4 , 4 , . . . , 2 , ' J , 4 . •* , 4 . 4 4.4 
2- » 90 DA t A 4 ,4,4, 4, 4,2 ,.',7 , 2 * •,4.4,1.44.1 
2 o2'-m-i PATA4.4. ,2,. , . . .‘,4,4.4. ' . ♦ 

2** 21" DATA4 , 2 , 2 . 7 , 4 , 2 V ,2, '.“.4 
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*m23" I)ATh4.4,4.4, -».2.. , „ 

7* • -4» * 1>A 1 04 . 4 . 4 . • . 2 , 2 , 4 . 4 
2075*.* DAT A4 . 4 . 4 , . , 2 . 4 . 4 , 4 
2*.26.. OATA4.4. ’..‘,4, 4, 4, 4 
. ■ . 70 DO I A4 .2, 7.2, 4, 4, 4, 4 
7. _ i:1* * I'. 1 f A4 ,2.2,. . 4.4 . 4 .4 
. 76 * 0ATA4 ,2,1 , 4,4, 4, 4 . 4 

70 701* DAI A4 , 2 . 2 , 4 , * , 4 . . . t 
'03 |f. r>A!2« ,2, 4, 4,4,4. 4 

2m *7" Pm 1 A. . 2 , . .>.4,4,4, » 

V» PA I A. ,7, : . ,2,4 I 

2« .*40 DATA. ,2, 7,4, 4. 2.4 .4 
7035m DATA" , 2,. , 4 . 4 . 4 , 4 , 4 
2- *2 v ITATA4. . ,2 .4, 2 .4,4,4 
203 /.:• DATA4 , 4 , 2 , . . 7 . 7 . 4 , . 

2<*5H« PAT A4 ,4,2,- , ‘ . . 4 

Vn* I PATA4.4 .4 , 2,2 . 2,4,4 
2- .4>... IT T1 DA I'M I OR SI-OIL 
7* -4 I M DATA 4,4,4 ,*>.'*',o,m p 4,4,4 
_ 4 . m DATA 4, '.O.O.O.m.m, 1 , > 

2043*' DATA 4 O , , , m , 4 

;y>4 4m PAIR " 

20430 DATA ", 1 , 4 . 0 ,o,o, o , 4 , 0 ,. 1 
?«i46- r DATA 0,..», 4 . 4 4, 4 .« 

2 * 1 4 o DATA ", 1 , 4 ,4.1 4 . 1 . ■ . 

2 - 400 DAT.-, o, .o. . 

2 * *1 90 DATA 4 4 > 

7m5*h DATA 1 j 1 , 4 4 

2051*1 Data 4 , 0 ,u,u,o,o," .•»,<*. 4 
?o*;:*o DATA 1 , 1 , 4 ,m,", ,",1.4,4 

70530 DATA 4,4,. , , o ...... ,o, 4 , 4 

.0540 DATA 4*4,". 1 . 4 , 4, 4,", 4, 4 
2055*- DATA 4, 4,", O,0,o,. 

70 * 16 " REM 5FRITE DAIm: WINDOW 

?■ .57,, L-M 1 A 755 , 25 ' ,86 ,04 ,U . . 5" . 1 BEI,. . , 9m , I 4R , 25< • 

2058*1 DATA 100,0,90, 1 48. " . 2’5> * . IRB.m.VO. 140.". -*5". 188. •• 

20590 Dftu, 1 4ri 1 OR .* *, 1 . 1 i-i . .2fK* 4 188,0 ( 9n 

70600 LATA 148,0.25", 100.0,90 . 1 iO . " , 75" , l 88, • 9", 1 48 ,0 

2*.'6 1 *,* DATA 750,180. • , 9" , 1 4B , 755, 757 , " , HJ 
2* *65* 1 RE M I I oMF 

2*>6<jo 1 4 .• •, I . I , • • . 5, 190 . -.5, 196,0 

_ **67*i BATA 5 , , * * , ' . I Ti* » , o . 7 , 1 64 , ' • » 3 , 775 , , I . ,c .",l 

20600 DATA 2 ',-.1 .. .,11 , 40 , j • *4 , 1 I •'** , » • - 

1 
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20730 RFM Wl THl 
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7076" DATA 753,0, ’ , 755 . 128,4,749,120.". " . 1^2. I.-". 125 
7 ** 7 /" DATA 724,04, 176,112,1 I , 755, 2! ... ,04 , I 9 | .0 
20780 DA I A 178 . 7 I 1 1 17, O.um.i 

20790 RCM PA I WINGS UK 

7D80* * DATA " , • * , O , " , 0 , • » , M, u , * * , • * , o , , O , *> , O , O , •> . o , . 8 , " 

20Q | o DATA 36, 1 19.*.*, 2T*8, 1 29,2 I 9 . 1 . 9. •, o' *4 ,** . . 

. . 

7oB5' DATA O,o, 0 , 0 , 0 , * 1 , 00 ' 

20840 REM BAT WIND 2 PltWH 

. • 1 • ' - ' ’ - 

I . Ml . . . 

708 /*■ DATA ‘ '»*• 
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DATA 

Glossary 

A list of information that is required by a program. DATA can 
consist of words or numbers, or both together. A program is 
sent to the DATA with the instruction READ 

FOR NEXT 

This is a sequence of commands that is used to make the 
computer repeat an operation a certain number of times. For 
example, the loop FOR X= 1 TO 5:PRINT 2*X:NEXT X would 
cause the computer to print the two times table up to five. 

GOTO 

This statement tells the computer to go to the specified line, 
missing out any lines in-between. It is often used with 

IF THEN (see below) and is only operated if certain 

conditions are true. Be careful when using GOTOs, as it's 
easy to have the program jumping backward and forward so 
much that it is impossible to read. 

HGR 

This sets the high resolution graphics mode on the Apple. 

HPLOT 

This places a set of x, y coordinates on the Apple screen. If 
HPLOT is followed by TO, it draws a line from the last point 
plotted to the coordinates indicated. This works both 
horizontally and vertically. 

IF THEN 

This is used as a way of telling the computer to do something 
only when certain conditions are true. This instruction often 
looks something like this: IF score =LE THEN WO= 1. 

INT 

INT is short for integer, and instructs the computer to make a 
whole number of a figure with decimal places in it. It is often 
used in conjunction with the RND command which instructs 
the computer to generate a random number (see below). 

LEFTS 

This instruction is used to copy part of a string, starting at the 
left-hand end. It is followed in brackets by the string name 
and the number of characters to be copied. 

LET 

This is one way of giving the computer information. In some 
programs there may be statements such as: X= 10. This 
simply means that the number ten is stored under the label 

X. It is often clearer to write: LET X= 10 

The LET statement also gives rise to something that at first 
sight seems illogical, if not impossible. In many programs 
you will see things like: LET X=X + 1 

Of course, in mathematical terms X can't equal X+ 1. All this 
type of statement means is "increase the value of whatever is 
stored in X by one." 
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LIST 

This makes the computer display whatever program it has in 
its memory. You can LIST single lines, or parts of a program 
by following the LIST with appropriate lme numbers. 

MID$ 

This is used to copy the middle part of a string. It is followed 
in brackets by the string name, the start position, and the 
number of characters to be copied. 

PEEK 

This instruction looks at a particular memory location. It is 
often associated with POKE 

PIXEL 

This represents a point on the gnd in graphics mode. The 
number of pixels per screen is determined by the quality of 
the graphics, e.g. high or low resolution mode. 

POKE 

This stores numeric information in the computer’s memory. It 
is often used for sound and places a binary number m a 
particular location. 

PRINT 

This tells the computer to display something on the screen. 

RIGHTS 

Similar to LEFTS, but copies the right-hand end of a string. 

RND 

This instruction makes the computer generate a random 
number. The precise instruction varies between different 
models of computer. 

shape tables 

These are used to define the shape of a graphic on the 
screen on the Apple lie. They are stored in tables, so that 
they can be called up easily when required. 

sprite 

A sprite is a user-defined character on the Commodore 64 
computer. It is a small area of the graphics screen which can 
be moved around and switched on and off with ease. A 
maximum of eight different sprites can be defined. 

STEP 

The STEP statement is always used following a FOR.... 
statement. It indicates the amount that the variable should be 
changed for each operation. For example: FOR X=0 TO 20 
STEP 5: PRINT X: NEXT X would mean that X would rise in 
steps of five, so that the computer would print 0, 5, 10, 15, 20. 

XDRAW 

This stands for “exclusive DRAW. " It is an instruction used on 
the Apple He. It combines what is being drawn ’’exclusively" 
with what is behind it. This means that it can be drawn over a 
background, and the background will return when the 
drawing is blanked out. It also means that when the same 
shape is "exclusively DRAWn" in the same place twice, it 
disappears. 
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Index 
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animation 14, 16 
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array 17, 35, 38 
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B 

memory location 8, 16, 17 


BASIC 8, 20 

BLOCK 20, 22, 25 

P 


box-drawing 26 

pause 14, 31, 38 


byte 15 

position 34 

program listings 39-41 


C 

checksum 30 

R 


clock 14 

color 11, 15, 17, 20, 21, 22, 

RND 14, 16, 23, 27, 34 


24, 35, 37 

S 


control program 14, 16 

scale 34 


"crash" 30 

screen memory 25, 26, 27, 



35, 38 


D 

shape table 8, 9, 15, 23, 31, 


direction 16, 23, 36 

34 

sprite 16, 17, 26, 36, 37 


G 

starter program 1 1 


graphics 15, 20, 22 

storage 39 
storyboard 12, 14 


H 

string 9, 21 


high resolution graphics 10, 

SYS MC 10, 11,25, 26, 35 


15, 17, 24, 37 

T 


I 

testing 28 


initialization 14, 15, 17, 26. 

TRIANGLE 20, 21 


34, 35, 36, 37 
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loop 10, 11,21,23, 25 
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WRITE YOUR OWN PROGRAM 
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